home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib2 / v_02_01 / 2n01048c < prev    next >
Encoding:
Text File  |  1995-11-01  |  255 b   |  24 lines
  1.  
  2.  
  3.  
  4. function search(var s : string) : integer;
  5.     label
  6.         1;
  7.     var
  8.         i : integer;
  9.     begin
  10.     i := MAX;
  11.     while i > 0 do
  12.         begin
  13.         if s = table[i] then
  14.             begin
  15.             search := i;
  16.             goto 1;
  17.             end;
  18.         i := i - 1;
  19.         end;
  20.     search := 0;
  21. 1:
  22.     end;
  23.  
  24.